1400 |
Is it possible to define my values for sorting
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add("C1").SortType = 6 .Columns.Add "C2" With .Items h = .AddItem("Cell 1") .CellData(h,0) = "3.your extra data" .CellValue(h,1) = "SortValue=3" h = .AddItem("Cell 1.1") .CellData(h,0) = "1.your extra data" .CellValue(h,1) = " SortValue=1" h = .AddItem("Cell 1.2") .CellData(h,0) = "5.your extra data" .CellValue(h,1) = " SortValue=5" h = .AddItem("Cell 1.3") .CellData(h,0) = "2.your extra data" .CellValue(h,1) = " SortValue=2" End With End With End Function </SCRIPT> </BODY> |
1399 |
I have multiple dropdown lists, that are depending on each other, that means that the values in dropdown list no. 2 is based on the users selection in dropdown list no 1. How can I do this
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_EditOpen() With G2antt1 With .Items v = .CellValue(.FocusItem,0) c = .CellCaption(.FocusItem,0) End With With .Columns.Item(1).Editor .ClearItems .AddItem v,c End With End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 With .Columns.Add("DropDownList") With .Editor .EditType = 3 .AddItem 1,"First" .AddItem 2,"Second" .AddItem 3,"Third" End With End With .DrawGridLines = -1 .Columns.Add("DropDownList-Related").Editor.EditType = 3 With .Items .CellValue(.AddItem(1),1) = -1 .CellValue(.AddItem(2),1) = -1 .CellValue(.AddItem(3),1) = -1 .LockedItemCount(2) = 1 h = .LockedItem(2,0) .ItemDivider(h) = 0 .ItemDividerLineAlignment(h) = 2 .CellEditorVisible(h,0) = False .CellSingleLine(h,0) = False .CellValueFormat(h,0) = 1 .CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection" & _ " on the first column." End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1398 |
Is it possible background color displayed when the mouse passes over an item
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Def" .HotBackColor = RGB(0,0,128) .HotForeColor = RGB(255,255,255) With .Items .AddItem "Item A" .AddItem "Item B" .AddItem "Item C" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1397 |
Is it possible to magnify a specified date and apply a different background color
|
1396 |
Could you please tell me how to add multiple bars to the one line
|
1395 |
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" .Chart.FirstVisibleDate = #1/1/2001# With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1" h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2" .AddLink "L1",h1,"K1",h2,"K2" .Link("L1",6) = 0 End With .EndUpdate .Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();" End With End Function </SCRIPT> </BODY> |
1394 |
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" .Chart.FirstVisibleDate = #1/1/2001# With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1" h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2" .AddLink "L1",h1,"K1",h2,"K2" .Link("L1",6) = 0 End With .EndUpdate With CreateObject("Exontrol.Print") .PrintExt = G2antt1.ExecuteTemplate("me").Object .Preview End With End With End Function </SCRIPT> </BODY> |
1393 |
Is it possible to display the bar's captions or labels with a different font/size
|
1392 |
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .ConditionalFormats.Add("1","K1") .BackColor = RGB(255,0,0) .ApplyTo = 1 ' &H1 End With With .ConditionalFormats.Add("1","K2") .BackColor = RGB(255,0,0) .ApplyTo = 2 ' &H2 End With .MarkSearchColumn = False .DrawGridLines = -2 With .Columns .Add "Column 1" .Add "Column 2" .Add "Column 3" End With With .Items .AddItem .AddItem .AddItem End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1391 |
Is it possible to change the height for all items at once
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add "Items" With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" h = .AddItem("Root 2") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(0) = True End With .EndUpdate .DefaultItemHeight = 12 .Items.ItemHeight(0) = 12 End With End Function </SCRIPT> </BODY> |
1390 |
Is it possible to include the weekday when displaying the date
|
1389 |
I need my chart to display the end date with on day less. How can I do this (Method 1)
|
1388 |
Is it possible to display my custom time-units
|
1387 |
Is it possible to add new records and see them in the control's view using the DataSource
|
1386 |
How can I limit the bars to scrolling range only
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_CreateBar(Item,DateStart,DateEnd) With G2antt1 With .Items .ItemBar(Item,"newbar",22) = G2antt1.Chart.ScrollRange(2) .ItemBar(Item,"newbar",25) = G2antt1.Chart.ScrollRange(3) End With End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .LevelCount = 2 .PaneWidth(0) = 56 .ScrollRange(0) = #1/1/2001# .ScrollRange(1) = #1/15/2001# .FirstVisibleDate = #1/12/2001# .AllowCreateBar = 1 End With With .Items .AddItem "Task 1" .AddItem "Task 2" .AddItem "Task 3" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1385 |
How do I get the handle of the last added item
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add "Def" With .Items .AddItem 1 .AddItem 2 alert( .ItemByIndex(.ItemCount) ) End With End With End Function </SCRIPT> </BODY> |
1384 |
How can I set the charts date format to any other international Format then the US version. I would need "dd.mmm.yyyy" instead of "mmm.d.'yy"
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 With .Chart .PaneWidth(False) = 0 .LevelCount = 2 With .Level(0) .Label = "<%dd%>.<%mmm%>.<%yyyy%>" .Unit = 256 .Alignment = 17 ' AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment End With End With End With End Function </SCRIPT> </BODY> |
1383 |
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors
|
1382 |
How can I hide the values shown in the legend when cumulative histogram is displayed
|
1381 |
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors
|
1380 |
Is it possible to show the non-working pattern over the bars
|
1379 |
I'm showing values from a ado recordset from sql 2005. When I try to edit a column with integers, it just skips back to the original numbers after pressing enter..., why
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AddItem(Item) With G2antt1 With .Items .AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4) End With End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_Error(Error,Description) With G2antt1 alert( Error ) alert( Description ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #8/3/1994# .PaneWidth(False) = 256 .LevelCount = 2 .UnitScale = 4096 .FirstWeekDay = 1 .OverviewVisible = 2 End With .ColumnAutoResize = False .ContinueColumnScroll = False Set rs = CreateObject("ADOR.Recordset") With rs .Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1 End With .DataSource = rs .Items.AllowCellValueToItemBar = True .Columns.Item(2).Def(18) = 1 .Columns.Item(4).Def(18) = 2 .EndUpdate End With End Function </SCRIPT> </BODY> |
1378 |
Is it possible to reduce the non-working parts of the control
|
1377 |
I don't want to see the "schedule"/show "workload" in non-working days part of the histogram
|
1376 |
The control shows, and handles non-working days PERFECT, but how is it possible to reflect this in the Histogram. I don't want to "schedule"/show "workload" in non-working days...
|
1375 |
When I do select the button in the overview-zoom I want the scaling to change accordingly. Can I set different scales per selected zoom level
|
1374 |
How do I display Icons instead of text in the overview zoom area
|
1373 |
How do I get it to only display Min, Hour, Day, Week , Month, ie remove Sec and Year in the overview area
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 With .Chart .OverviewVisible = 2 .AllowOverviewZoom = 1 .Label(16777216) = "" .Label(0) = "" End With End With End Function </SCRIPT> </BODY> |
1372 |
Is it possible to show quarter hours markers
|
1371 |
How can I ensure or always show the labels on the chart part, when scrolling the chart to left or right
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 0 .LevelCount = 2 .UnitWidth = 48 .UnitScale = 65536 With .Level(0) .Alignment = 17 ' AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment .Label = "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>" End With .Level(1).Label = "<%hh%>:00" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1370 |
I associate the Start and End columns with bars, but some of them are not shown. What am I doing wrong
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .MarkSearchColumn = False .Items.AllowCellValueToItemBar = True With .Chart .LevelCount = 2 .FirstVisibleDate = #12/25/2000# .PaneWidth(False) = 128 End With With .Columns.Add("Start") .Def(18) = 1 .Def(19) = "K1" End With With .Columns.Add("End") .Def(18) = 2 .Def(19) = "K1" End With With .Items .AddBar .AddItem(),"Task",#1/1/2001#,#1/5/2001#,"K1" .AddBar .AddItem(),"Task",#1/2/2001#,#1/6/2001#,"K1" .AddBar .AddItem(),"Task",#1/3/2001#,#1/7/2001#,"????","????" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1369 |
How can I implement OLE Drag and Drop operation
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_OLEStartDrag(Data,AllowedEffects) ' Data.SetData("your data to drag") With G2antt1 AllowedEffects = 2 End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .Columns.Add "Default" With .Items .AddItem "Item 1" .AddItem "Item 2" .AddItem "Item 3" .AddItem "Item 4" .AddItem "Item 5" End With .OLEDropMode = 1 .EndUpdate End With End Function </SCRIPT> </BODY> |
1368 |
I can not associate the bar's start and end properties with my start/end columns, only if the bar's key is empty or null. What can I do
|
1367 |
How can I determine the order of the events
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AddLink(LinkKey) With G2antt1 alert( "AddLink" ) alert( LinkKey ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AfterExpandItem(Item) With G2antt1 alert( "AfterExpandItem" ) alert( Item ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AllowLink(StartItem,StartBarKey,EndItem,EndBarKey,LinkKey,Cancel) With G2antt1 alert( "AllowLink" ) alert( StartItem ) alert( StartBarKey ) alert( EndItem ) alert( EndBarKey ) alert( LinkKey ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AnchorClick(AnchorID,Options) With G2antt1 alert( "AnchorClick" ) alert( AnchorID ) alert( Options ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BarParentChange(Item,Key,NewItem,Cancel) With G2antt1 alert( "BarParentChange" ) alert( Item ) alert( Key ) alert( NewItem ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BarResize(Item,Key) With G2antt1 alert( "BarResize" ) alert( Item ) alert( Key ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BarResizing(Item,Key) With G2antt1 alert( "BarResizing" ) alert( Item ) alert( Key ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BeforeExpandItem(Item,Cancel) With G2antt1 alert( "BeforeExpandItem" ) alert( Item ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ButtonClick(Item,ColIndex,Key) With G2antt1 alert( "ButtonClick" ) alert( Item ) alert( ColIndex ) alert( Key ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_CellImageClick(Item,ColIndex) With G2antt1 alert( "CellImageClick" ) alert( Item ) alert( ColIndex ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_CellStateChanged(Item,ColIndex) With G2antt1 alert( "CellStateChanged" ) alert( Item ) alert( ColIndex ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_Change(Item,ColIndex,NewValue) With G2antt1 alert( "Change" ) alert( Item ) alert( ColIndex ) alert( NewValue ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ChartEndChanging(Operation) With G2antt1 alert( "ChartEndChanging" ) alert( Operation ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ChartSelectionChanged() With G2antt1 alert( "ChartSelectionChanged" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ChartStartChanging(Operation) With G2antt1 alert( "ChartStartChanging" ) alert( Operation ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_Click() With G2antt1 alert( "Click" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ColumnClick(Column) With G2antt1 alert( "ColumnClick" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_CreateBar(Item,DateStart,DateEnd) With G2antt1 alert( "CreateBar" ) alert( Item ) alert( DateStart ) alert( DateEnd ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_DateChange() With G2antt1 alert( "DateChange" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_DblClick(Shift,X,Y) With G2antt1 alert( "DblClick" ) alert( Shift ) alert( X ) alert( Y ) .Edit End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_Edit(Item,ColIndex,Cancel) With G2antt1 alert( "Edit" ) alert( Item ) alert( ColIndex ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_EditClose() With G2antt1 alert( "EditClose" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_EditOpen() With G2antt1 alert( "EditOpen" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_FilterChange() With G2antt1 alert( "FilterChange" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_FilterChanging() With G2antt1 alert( "FilterChanging" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_FocusChanged() With G2antt1 alert( "FocusChanged" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_InsideZoom(DateTime) With G2antt1 alert( "InsideZoom" ) alert( DateTime ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_KeyDown(KeyCode,Shift) With G2antt1 alert( "KeyDown" ) alert( KeyCode ) alert( Shift ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_KeyPress(KeyAscii) With G2antt1 alert( "KeyPress" ) alert( KeyAscii ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_KeyUp(KeyCode,Shift) With G2antt1 alert( "KeyUp" ) alert( KeyCode ) alert( Shift ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_LayoutChanged() With G2antt1 alert( "LayoutChanged" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseDown(Button,Shift,X,Y) With G2antt1 alert( "MouseDown" ) alert( Button ) alert( Shift ) alert( X ) alert( Y ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseMove(Button,Shift,X,Y) End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseUp(Button,Shift,X,Y) With G2antt1 alert( "MouseUp" ) alert( Button ) alert( Shift ) alert( X ) alert( Y ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_OffsetChanged(Horizontal,NewVal) With G2antt1 alert( "OffsetChanged" ) alert( Horizontal ) alert( NewVal ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_OversizeChanged(Horizontal,NewVal) With G2antt1 alert( "OversizeChanged" ) alert( Horizontal ) alert( NewVal ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_OverviewZoom() With G2antt1 alert( "OverviewZoom" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_RClick() With G2antt1 alert( "RClick" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ScrollButtonClick(ScrollBar,ScrollPart) With G2antt1 alert( "ScrollButtonClick" ) alert( ScrollBar ) alert( ScrollPart ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_SelectionChanged() With G2antt1 alert( "SelectionChanged" ) End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_Sort() With G2antt1 alert( "Sort" ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _ "lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _ "0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _ "NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .DrawGridLines = -1 .LinesAtRoot = -1 .GridLineStyle = 4 .AutoEdit = False .ExpandOnDblClick = False With .Chart .AllowInsideZoom = True .OverviewVisible = 2 .AllowOverviewZoom = 1 .PaneWidth(0) = 128 .FirstVisibleDate = #1/1/2001# .DrawGridLines = -1 .GridLineStyle = 36 ' GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDash .LevelCount = 2 .Level(0).DrawGridLines = True .Bars.Item("Task").Pattern = 1 .UnitScale = 4096 .Label(16777216) = "" .Label(1048576) = "" .Label(65536) = "" End With With .Columns With .Add("Column") .DisplayFilterButton = True .Def(0) = True .Editor.EditType = 1 End With With .Add("Button") .AllowSizing = False .Width = 18 .Def(2) = True End With End With With .Items h = .AddItem("parent") .CellImage(h,0) = 1 .AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A","<a>A</a>" .ItemBar(h,"A",4) = 18 .ItemBar(h,"A",28) = True .ItemBar(h,"A",6) = "This is a bit of text that should be shown when cursor hovers the bar" .AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B","<a>B</a>" .ItemBar(h,"B",4) = 18 .ItemBar(h,"B",28) = True .InsertItem h,"","child" .ExpandItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1366 |
How can I change the chart's horizontal grid lines
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .DrawGridLines = -1 .GridLineStyle = 4 With .Chart .PaneWidth(0) = 48 .FirstVisibleDate = #1/1/2001# .DrawGridLines = -1 .GridLineStyle = 36 ' GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDash .LevelCount = 2 .Level(0).DrawGridLines = True .Bars.Item("Task").Pattern = 1 End With .Columns.Add "Column" With .Items h = .AddItem("Item 1") .AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A" .AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1365 |
Is there any way to determine whether the ADO operations fails
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AddItem(Item) With G2antt1 With .Items .AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4) End With End With End Function </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_Error(Error,Description) With G2antt1 alert( Error ) alert( Description ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #8/3/1994# .PaneWidth(False) = 256 .LevelCount = 2 .UnitScale = 4096 .FirstWeekDay = 1 .OverviewVisible = 2 End With .ColumnAutoResize = False .ContinueColumnScroll = False Set rs = CreateObject("ADOR.Recordset") With rs .Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1 End With .DataSource = rs .Items.AllowCellValueToItemBar = True .Columns.Item(2).Def(18) = 1 .Columns.Item(4).Def(18) = 2 .EndUpdate End With End Function </SCRIPT> </BODY> |
1364 |
Is it possible to select a column instead sorting it
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ColumnClick(Column) ' Column.Selected = True With G2antt1 .BeginUpdate .Columns.Item(0).Selected = False .Columns.Item(1).Selected = False .Items.SelectAll .EndUpdate End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .MarkSearchColumn = False .ShowFocusRect = False .SingleSel = False .FullRowSelect = 1 .SortOnClick = 0 With .Columns .Add "Column1" .Add "Column2" End With With .Items .CellValue(.AddItem("One"),1) = "Three" .CellValue(.AddItem("Two"),1) = "Four" .SelectAll End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1363 |
I am using the exRectSel, and clicking the first column, has no effect, instead if I click other it works as it should
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .SearchColumnIndex = -1 .FullRowSelect = 1 .ShowFocusRect = False .MarkSearchColumn = False With .Columns .Add "Column1" .Add "Column2" End With With .Items .CellValue(.AddItem(1),1) = 2 .CellValue(.AddItem(3),1) = 4 .CellValue(.AddItem(5),1) = 6 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1362 |
Is it possible to display empty strings for 0 values
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 With .Columns.Add("Currency") .FormatColumn = "dbl(value) ? currency(dbl(value)) : ``" With .Editor .EditType = 1 .Numeric = 1 End With End With With .Items .AddItem 1.23 .AddItem 2.34 .AddItem 0 .AddItem 10000.99 End With End With End Function </SCRIPT> </BODY> |
1361 |
Is it possible to display empty strings for 0 values
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add "Number" .Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``" With .Items .AddItem 1.23 .AddItem 2.34 .AddItem 0 .AddItem 10000.99 End With End With End Function </SCRIPT> </BODY> |
1360 |
How can I hide a date from the chart view, when I display hours instead days
|
1359 |
I’ve created a skin (EBN) for the bars of my chart, with rounded top corners. The problem, is that these rounded corners are applied also at beginning and the end of the non working units. Is it possible to show a different picture/skin for the non-working part of the bars
|
1358 |
How do I display the names of the tasks on bars but not in the middle of the bar (left or right)
|
1357 |
How can I get the list of items as they are displayed
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .BackColorAlternate = RGB(240,240,240) .Columns.Add "Names" With .Items .AddItem "Mantel" .AddItem "Mechanik" .AddItem "Motor" .AddItem "Murks" .AddItem "Märchen" .AddItem "Möhren" .AddItem "Mühle" End With .Columns.Item(0).SortOrder = 1 .EndUpdate alert( .GetItems(1) ) End With End Function </SCRIPT> </BODY> |
1356 |
How can I disable the left and right arrows to move to next cell while editing
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 Set var_Editor = .Columns.Add("Edit").Editor With var_Editor .EditType = 1 .Option(20) = 0 .Option(21) = 0 End With With .Items .AddItem "Cell 1" .AddItem "Cell 2" .AddItem "Cell 3" End With End With End Function </SCRIPT> </BODY> |
1355 |
Is it possible to define a bar that is treated as a non-working hour so user can move it at runtime
|
1354 |
Is it possible to customize the chart's header so I can display shift and other values
|
1353 |
How can I change both start and end dates of the bar
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 64 .FirstVisibleDate = #6/19/2005# End With With .Items h = .AddItem("Test") .AddBar h,"Task",#6/22/2005#,#6/27/2005#,"t1" .AddBar h,.ItemBar(h,"t1",0),#6/21/2005#,#6/22/2005#,"t1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1352 |
Is it possible to add new rows, as I type like in Excel
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_EditClose() With G2antt1 .Items.AddItem "" End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .AutoEdit = True .Columns.Add("Default").Editor.EditType = 1 .FullRowSelect = 0 .Items.AddItem "" .DrawGridLines = -1 .ScrollBars = 15 .EndUpdate End With End Function </SCRIPT> </BODY> |
1351 |
How do I load bars from my table/database
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AddItem(Item) With G2antt1 With .Items .AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4) End With End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #8/3/1994# .PaneWidth(False) = 256 .LevelCount = 2 .UnitScale = 4096 .FirstWeekDay = 1 .OverviewVisible = 2 End With .ColumnAutoResize = False .ContinueColumnScroll = False Set rs = CreateObject("ADOR.Recordset") With rs .Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3 End With .DataSource = rs .Items.AllowCellValueToItemBar = True .Columns.Item(2).Def(18) = 1 .Columns.Item(4).Def(18) = 2 .EndUpdate End With End Function </SCRIPT> </BODY> |
1350 |
Is posible to reduce the size of the picture to be shown in the bar's caption
|
1349 |
Is posible to reduce the size of the picture to be shown in the column's caption
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .HeaderHeight = 48 .Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture" .Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture" .EndUpdate End With End Function </SCRIPT> </BODY> |
1348 |
Is it possible to display the selected dates using a solid color instead vertical lines
|
1347 |
How can I show the cells using a different background color based on the condition I have
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .SelBackMode = 1 .ShowFocusRect = False With .ConditionalFormats With .Add("dbl(%1)-dbl(%0) = 1") .BackColor = RGB(255,0,0) .ApplyTo = 1 ' &H1 End With With .Add("dbl(%0)-dbl(%1) = 3") .BackColor = RGB(255,255,0) .ApplyTo = 0 End With With .Add("dbl(%1)-dbl(%0) = 4") .ForeColor = RGB(128,128,128) .Bold = True .ApplyTo = -1 End With End With With .Columns .Add("C1").Width = 8 .Add("C2").Width = 8 .Add "" End With .Chart.PaneWidth(True) = 0 With .Items .CellValue(.AddItem(2),1) = 3 .CellValue(.AddItem(5),1) = 2 .CellValue(.AddItem(5),1) = 6 .CellValue(.AddItem(2),1) = 6 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1346 |
How can I specify the frame's color for all Task bars
|
1345 |
Is it possible to change the bar's frame color
|
1344 |
I need to customize the labels on the chart. Is it possible
|
1343 |
Is it possible to show a frame around the bar
|
1342 |
Currently your control, provides customization up to Year,Month,Day,Hours,etc. I would like to add Shifts in a day. Shortly, I need to customize the chart's header. Is it possible
|
1341 |
The exbartootip shows dates after you moved or resized the bar. My question is during the move or resizing of bar(you click on bar and drag it,during that time) , can we display the new dates simultaneously so we will know where we want to move or resize the bar to
|
1340 |
Is it possible to assign a tooltip automatically to all bars, so it can display the start and end, without specifying the IexBarToolTip for each bar
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add "Task" With .Chart .PaneWidth(False) = 64 .FirstVisibleDate = #1/1/2001# .Bars.Item("Task").Def(6) = "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>" End With With .Items h = .AddItem("Tasks A") .AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1" .AddBar h,"Task",#1/5/2001#,#1/9/2001#,"K2" h = .AddItem("Tasks B") .AddBar h,"Task",#1/3/2001#,#1/5/2001#,"K1" .AddBar h,"Task",#1/8/2001#,#1/11/2001#,"K2" End With End With End Function </SCRIPT> </BODY> |
1339 |
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .ConditionalFormats.Add("1") .Bold = True .ForeColor = RGB(255,0,0) .ApplyTo = 1 ' &H1 End With .Columns.Add "C1" With .Columns.Add("C2") .HeaderBold = True .HTMLCaption = "<fgcolor=FF0000>C2" End With With .Items .CellValue(.AddItem(10),1) = 11 .CellValue(.AddItem(12),1) = 13 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1338 |
How can I remove a date-time zone
|
1337 |
How can I filter the check-boxes (method 2)
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 With .Columns.Add("Check") With .Editor .EditType = 19 .Option(17) = 1 End With .DisplayFilterButton = True .DisplayFilterPattern = False .CustomFilter = "checked||-1|||unchecked||0" End With With .Items .AddItem True .AddItem True .AddItem False .AddItem True .AddItem False .AddItem True .AddItem False End With End With End Function </SCRIPT> </BODY> |
1336 |
How can I filter the check-boxes (method 1)
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 With .Columns.Add("Check") With .Editor .EditType = 19 .Option(17) = 1 End With .DisplayFilterButton = True .DisplayFilterPattern = False .FilterType = 6 End With With .Items .AddItem True .AddItem True .AddItem False .AddItem True .AddItem False .AddItem True .AddItem False End With End With End Function </SCRIPT> </BODY> |
1335 |
How can add a button to control
|
1334 |
Is it posible to store additional values against each item, cell, bar, link, such as custom values such string / numbers etc
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 With .Chart .LevelCount = 2 .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 96 End With .Columns.Add("Column").Data = "Extra_Data_Column" With .Items h = .AddItem("Item 1") .ItemData(h) = "Extra_Data_Item 1" .CellData(h,0) = "Extra_Data_Item 1_Cell_0" .AddBar h,"Task",#1/2/2001#,#1/4/2001#,"B1" .ItemBar(h,"B1",17) = "Extra_B1_Data" h = .AddItem("Item 2") .ItemData(h) = "Extra_Data_Item 2" .AddBar h,"Task",#1/6/2001#,#1/10/2001#,"B2" .ItemBar(h,"B2",17) = "Extra_B2_Data" .AddLink "L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2" .Link("L1",5) = "Extra_Link_Data" End With End With End Function </SCRIPT> </BODY> |
1333 |
How do I set the parent item to show the total number of days for its children and also the minimum and maximum dates for its children
|
1332 |
Is it possible to specify the distance between 2 bars to be at least 2 working days
|
1331 |
The item is not getting selected when clicking the cell's checkbox. What should I do
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_CellStateChanged(Item,ColIndex) With G2antt1 .Items.SelectItem(Item) = True End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add("Check").Def(0) = True With .Items .AddItem 0 .AddItem 1 .AddItem 2 .AddItem 3 End With End With End Function </SCRIPT> </BODY> |
1330 |
How can I add a summary item as a child or subitem of another one
|
1329 |
How can I make an item a subitem of another one
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .LinesAtRoot = -1 .Chart.PaneWidth(True) = 0 .Columns.Add "Default" With .Items hSummary = .AddItem("Project") hChild = .InsertItem(hSummary,0,"Task 1") hChild = .InsertItem(hSummary,0,"Task 2") hChild = .InsertItem(hSummary,0,"Task 3") .ExpandItem(hSummary) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1328 |
Is it possible to move a bar per drag and drop to another owner/item
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add("Members").Def(17) = 1 With .Chart .FirstVisibleDate = #9/20/2006# .AllowLinkBars = False .AllowCreateBar = 0 .AllowSelectObjects = 0 .LevelCount = 2 .PaneWidth(False) = 96 .Bars.Item("Task").OverlaidType = 4611 ' OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack End With With .Items h = .AddItem("Member <b>1</b>") .AddBar h,"Task",#9/21/2006#,#9/23/2006#,"T102","Task <b>102</b>" .ItemBar(h,"T102",4) = 18 .ItemBar(h,"T102",28) = True h = .AddItem("Member <b>2</b>") h = .AddItem("Member <b>3</b>") h = .AddItem("Member <b>4</b>") .AddBar h,"Task",#9/21/2006#,#9/23/2006#,"T103","Task <b>103</b>" .ItemBar(h,"T103",4) = 18 .ItemBar(h,"T103",28) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1327 |
I have the chart displaying days, is it possible to display bars/tasks up to hours so inside days somehow
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .LevelCount = 2 .UnitWidth = 38 .PaneWidth(False) = 28 .FirstVisibleDate = #3/4/2011# .UnitScale = 4096 .ResizeUnitScale = 65536 End With .Columns.Add "Default" With .Items .AddBar .AddItem("ASS"),"Task",#3/7/2011#,#3/7/2011 3:30:00 AM# .AddBar .AddItem("EMB"),"Task",#3/7/2011 3:30:00 AM#,#3/8/2011 9:15:00 AM# .AddBar .AddItem("TES"),"Task",#3/8/2011 9:15:00 AM#,#3/8/2011 1:45:00 PM# End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1326 |
Is it possible to limit the height of the item while resizing
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AddItem(Item) With G2antt1 .Items.ItemMinHeight(Item) = 18 .Items.ItemMaxHeight(Item) = 72 End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ItemsAllowSizing = -1 .ScrollBySingleLine = False .BackColorAlternate = RGB(240,240,240) .Columns.Add "Names" With .Items .AddItem "Mantel" .AddItem "Mechanik" .AddItem "Motor" .AddItem "Murks" .AddItem "Märchen" .AddItem "Möhren" .AddItem "Mühle" End With .Columns.Item(0).SortOrder = 1 .EndUpdate End With End Function </SCRIPT> </BODY> |
1325 |
Is it possible to copy the hierarchy of the control using the GetItems method
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .LinesAtRoot = -1 .Columns.Add "Def" With .Items h = .AddItem("Root") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" End With .PutItems .GetItems(-1) End With End Function </SCRIPT> </BODY> |
1324 |
I have found a property ReadOnly but this doesn't work correctly. I need the chart part of the control to be readonly too. Is it possible
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .ReadOnly = -1 With .Chart .AllowCreateBar = 0 .BarsAllowSizing = False .AllowLinkBars = False End With End With End Function </SCRIPT> </BODY> |
1323 |
How can I select a column
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseDown(Button,Shift,X,Y) ' Columns.Item(Me.ColumnFromPoint(X,Y)).Selected = True With G2antt1 .BeginUpdate .Items.SelectAll .EndUpdate End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .MarkSearchColumn = False .SingleSel = False .FullRowSelect = 1 .SortOnClick = 0 With .Columns .Add "Column1" .Add "Column2" End With With .Items .CellValue(.AddItem("One"),1) = "One" .CellValue(.AddItem("Two"),1) = "Two" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1322 |
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Item") .DisplayFilterButton = True .DisplayFilterPattern = False .Filter = "Child 1" .FilterType = 240 End With With .Columns.Add("Date") .DisplayFilterButton = True .DisplayFilterPattern = False .DisplayFilterDate = True .FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems .Filter = #12/28/2010# .FilterType = 4 End With .FilterCriteria = "%0 or %1" .Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>" .Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>" With .Items h = .AddItem("Root 1") .CellValue(.InsertItem(h,,"Child 1"),1) = #12/27/2010# .CellValue(.InsertItem(h,,"Child 2"),1) = #12/28/2010# .ExpandItem(h) = True h = .AddItem("Root 2") .CellValue(.InsertItem(h,,"Child 1"),1) = #12/29/2010# .CellValue(.InsertItem(h,,"Child 2"),1) = #12/30/2010# End With .ApplyFilter .EndUpdate End With End Function </SCRIPT> </BODY> |
1321 |
Is it possible exclude the dates being selected in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 With .Columns.Add("Date") .SortType = 2 .DisplayFilterButton = True .DisplayFilterPattern = False .DisplayFilterDate = True .FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems End With With .Items .AddItem #12/27/2010# .AddItem #12/28/2010# .AddItem #12/29/2010# .AddItem #12/30/2010# .AddItem #12/31/2010# End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1320 |
How can I display a calendar control inside the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 With .Columns.Add("Date") .SortType = 2 .DisplayFilterButton = True .DisplayFilterPattern = False .DisplayFilterDate = True .FilterList = 1282 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems End With With .Items .AddItem #12/27/2010# .AddItem #12/28/2010# .AddItem #12/29/2010# .AddItem #12/30/2010# .AddItem #12/31/2010# End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1319 |
Is it possible to include the dates as checkb-boxes in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 With .Columns.Add("Dates") .SortType = 2 .DisplayFilterButton = True .DisplayFilterPattern = True .DisplayFilterDate = True .FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox .Filter = "to 12/27/2010" .FilterType = 4 End With With .Items .AddItem #12/27/2010# .AddItem #12/28/2010# .AddItem #12/29/2010# .AddItem #12/30/2010# .AddItem #12/31/2010# End With .ApplyFilter .EndUpdate End With End Function </SCRIPT> </BODY> |
1318 |
How can I filter items for dates before a specified date
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 With .Columns.Add("Dates") .SortType = 2 .DisplayFilterButton = True .DisplayFilterPattern = True .DisplayFilterDate = True .FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems .Filter = "to 12/27/2010" .FilterType = 4 End With With .Items .AddItem #12/27/2010# .AddItem #12/28/2010# .AddItem #12/29/2010# .AddItem #12/30/2010# .AddItem #12/31/2010# End With .ApplyFilter .EndUpdate End With End Function </SCRIPT> </BODY> |
1317 |
Is it possible to filter dates
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 With .Columns.Add("Dates") .SortType = 2 .DisplayFilterButton = True .DisplayFilterPattern = True .DisplayFilterDate = True .FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems End With With .Items .AddItem #12/27/2010# .AddItem #12/28/2010# .AddItem #12/29/2010# .AddItem #12/30/2010# .AddItem #12/31/2010# End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1316 |
Is it possible to change the Exclude field name to something different, in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 .Description(25) = "Leaving out" With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = False .FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1315 |
How can I display the Exclude field in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = False .FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1314 |
Is it possible to show and ensure the focused item from the control, in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = False .FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" .SelectItem(.InsertItem(h,,"Child 2")) = True .ExpandItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1313 |
Is it possible to show only blanks items with no listed items from the control
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = False .FilterList = 16386 ' FilterListEnum.exShowBlanks Or FilterListEnum.exNoItems End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1312 |
How can I include the blanks items in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = False .FilterList = 16640 ' FilterListEnum.exShowBlanks Or FilterListEnum.exShowCheckBox End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1311 |
How can I select multiple items in the drop down filter window, using check-boxes
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = False .FilterList = 256 End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1310 |
Is it possible to allow a single item being selected in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = False .FilterList = 128 End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1309 |
How can I display no (All) item in the drop down filter window
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 .Description(0) = "" With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = True .FilterList = 2 End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1308 |
Is it possible to display no items in the drop down filter window, so only the pattern is visible
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .LinesAtRoot = -1 With .Columns.Add("Items") .DisplayFilterButton = True .DisplayFilterPattern = True .FilterList = 2 End With With .Items h = .AddItem("Root 1") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem h,,"Child 1" .InsertItem h,,"Child 2" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1307 |
How can I specify the time-scale available when zoom-in/zoom-out or enlarging the chart
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .ShowNonworkingDates = False .LevelCount = 3 .UnitScale = 4096 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader .Label(65536) = "" .Label(1048576) = "" .Label(16777216) = "" End With With .Items .AddBar .AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1" .AddBar .AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1" .AddBar .AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1" .AddBar .AddItem(""),"",#1/8/2001#,#1/8/2001#,"Info","Click the <b>middle</b> mouse button and start dragging" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1306 |
How can I enable zoom-in/zoom-out or enlarging the chart, using the mouse middle button
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .ShowNonworkingDates = False .LevelCount = 3 .UnitScale = 4096 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader End With With .Items .AddBar .AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1" .AddBar .AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1" .AddBar .AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1" .AddBar .AddItem(""),"",#1/8/2001#,#1/8/2001#,"Info","Click the <b>middle</b> mouse button and start dragging" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1305 |
How can I enable zoom-in/zoom-out or enlarging, using the chart's header
|
1304 |
How can I enable resizing the chart, using the mouse middle button
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .ShowNonworkingDates = False .LevelCount = 3 .UnitScale = 4096 .AllowResizeChart = 6 ' ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader .MaxUnitWidth = 128 .MinUnitWidth = 8 End With With .Items .AddBar .AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1" .AddBar .AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1" .AddBar .AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1" .AddBar .AddItem(""),"",#1/8/2001#,#1/8/2001#,"Info","Click the <b>middle</b> mouse button and start dragging" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1303 |
How can I enable resizing the chart, using the chart's header
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .ShowNonworkingDates = False .LevelCount = 3 .UnitScale = 4096 .AllowResizeChart = 2 .MaxUnitWidth = 128 .MinUnitWidth = 8 End With With .Items .AddBar .AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1" .AddBar .AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1" .AddBar .AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1302 |
Is it possible to auto-numbering the children items but still keeps the position after filtering
|
1301 |
Is it possible to auto-numbering the children items too
|